package body spectateur is
   procedure start(indiv : individu) is
   begin
      loop
         delay 5.0;
         ada.Text_IO.Put_Line(serveur.etat(putIndividu(indiv)));
      end loop;
   end start ;
end spectateur;
